home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / parallel / interact < prev    next >
Text File  |  1992-04-11  |  231b  |  11 lines
  1. go:-
  2.     repeat,
  3.     send_request__(write('>')),
  4.     send_request__(remote_read(interact)),
  5.     in(interact(Request)),
  6.     Request,
  7.     Request = stop.
  8.  
  9. stop.
  10. /*-------------------------------------------------------------------*/
  11.